Option Explicit
Sub C_Sample002()
    Dim myRng(1 To 3) As Range
    Dim i             As Long
    For i = 1 To 3
        Set myRng(i) = Cells(i, 1)      'wJؼxs
    Next
    Cells.Clear                         'xs檺M
    'ǳƨ즹
    With myRng(1)                       'bUxs椤]wJ
        .Value = "2006/2/10"
        .Offset(, 1).Value = .NumberFormatLocal
    End With
    With myRng(2)
        .Value = "95~210"
        .Offset(, 1).Value = .NumberFormatLocal
    End With
    With myRng(3)
        .Value = CDate("إ95~210")
        .Offset(, 1).Value = .NumberFormatLocal
    End With
    With Range(myRng(1), myRng(3))
        .NumberFormatLocal = "yyyy/M/d"
        .Value = .Value
    End With
    Erase myRng
End Sub


